object FormFont: TFormFont Left = 292 Top = 211 BorderStyle = bsDialog Caption = 'Font' ClientHeight = 296 ClientWidth = 422 Color = 13750737 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False PixelsPerInch = 96 TextHeight = 13 object sEdit1: TsEdit Left = 16 Top = 28 Width = 136 Height = 21 Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 SkinData.SkinSection = 'EDIT' BoundLabel.Active = True BoundLabel.Caption = 'Font :' BoundLabel.Indent = 0 BoundLabel.Font.Charset = DEFAULT_CHARSET BoundLabel.Font.Color = clBlack BoundLabel.Font.Height = -11 BoundLabel.Font.Name = 'MS Sans Serif' BoundLabel.Font.Style = [] BoundLabel.Layout = sclTopLeft BoundLabel.MaxWidth = 0 end object sEdit2: TsEdit Left = 160 Top = 28 Width = 113 Height = 21 Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 SkinData.SkinSection = 'EDIT' BoundLabel.Active = True BoundLabel.Caption = 'Style :' BoundLabel.Indent = 0 BoundLabel.Font.Charset = DEFAULT_CHARSET BoundLabel.Font.Color = clBlack BoundLabel.Font.Height = -11 BoundLabel.Font.Name = 'MS Sans Serif' BoundLabel.Font.Style = [] BoundLabel.Layout = sclTopLeft BoundLabel.MaxWidth = 0 end object sEdit3: TsEdit Left = 160 Top = 148 Width = 57 Height = 21 Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 SkinData.SkinSection = 'EDIT' BoundLabel.Active = True BoundLabel.Caption = 'Size :' BoundLabel.Indent = 0 BoundLabel.Font.Charset = DEFAULT_CHARSET BoundLabel.Font.Color = clBlack BoundLabel.Font.Height = -11 BoundLabel.Font.Name = 'MS Sans Serif' BoundLabel.Font.Style = [] BoundLabel.Layout = sclTopLeft BoundLabel.MaxWidth = 0 end object sBitBtn1: TsBitBtn Left = 237 Top = 252 Width = 79 Height = 29 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 3 SkinData.SkinSection = 'BUTTON' ShowFocus = False end object sBitBtn2: TsBitBtn Left = 321 Top = 252 Width = 79 Height = 29 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 4 SkinData.SkinSection = 'BUTTON' ShowFocus = False end object sFontListBox1: TsFontListBox Left = 16 Top = 50 Width = 136 Height = 202 BoundLabel.Indent = 0 BoundLabel.Font.Charset = DEFAULT_CHARSET BoundLabel.Font.Color = clWindowText BoundLabel.Font.Height = -11 BoundLabel.Font.Name = 'MS Sans Serif' BoundLabel.Font.Style = [] BoundLabel.Layout = sclLeft BoundLabel.MaxWidth = 0 SkinData.SkinSection = 'EDIT' ItemHeight = 16 Items.Strings = ( 'Agency FB' 'Arial' 'Arial Baltic' 'Arial Black' 'Arial CE' 'Arial CYR' 'Arial Greek' 'Arial Narrow' 'Arial Rounded MT Bold' 'Arial TUR' 'Blackadder ITC' 'Bodoni MT' 'Bodoni MT Black' 'Bodoni MT Condensed' 'Book Antiqua' 'Bookman Old Style' 'Bookshelf Symbol 7' 'Bradley Hand ITC' 'Calisto MT' 'Castellar' 'Century Gothic' 'Century Schoolbook' 'Comic Sans MS' 'Copperplate Gothic Bold' 'Copperplate Gothic Light' 'Courier' 'Courier New' 'Courier New Baltic' 'Courier New CE' 'Courier New CYR' 'Courier New Greek' 'Courier New TUR' 'Curlz MT' 'Edwardian Script ITC' 'Elephant' 'Engravers MT' 'Eras Bold ITC' 'Eras Demi ITC' 'Eras Light ITC' 'Eras Medium ITC' 'Estrangelo Edessa' 'Felix Titling' 'Fixedsys' 'Forte' 'Franklin Gothic Book' 'Franklin Gothic Demi' 'Franklin Gothic Demi Cond' 'Franklin Gothic Heavy' 'Franklin Gothic Medium' 'Franklin Gothic Medium Cond' 'French Script MT' 'Garamond' 'Gautami' 'Georgia' 'Gigi' 'Gill Sans MT' 'Gill Sans MT Condensed' 'Gill Sans MT Ext Condensed Bold' 'Gill Sans Ultra Bold' 'Gill Sans Ultra Bold Condensed' 'Gloucester MT Extra Condensed' 'Goudy Old Style' 'Goudy Stout' 'Haettenschweiler' 'Impact' 'Imprint MT Shadow' 'Latha' 'Lucida Console' 'Lucida Sans' 'Lucida Sans Typewriter' 'Lucida Sans Unicode' 'Maiandra GD' 'Mangal' 'Marlett' 'Microsoft Sans Serif' 'Modern' 'Monotype Corsiva' 'MS Outlook' 'MS Reference Sans Serif' 'MS Reference Specialty' 'MS Sans Serif' 'MS Serif' 'MV Boli' 'OCR A Extended' 'Palace Script MT' 'Palatino Linotype' 'Papyrus' 'Perpetua' 'Perpetua Titling MT' 'Pristina' 'PROMT Helv Cyr' 'PROMT Helv Cyr Spec' 'PROMT Helv WE' 'PROMT Helv WE Spec' 'PROMT OEM Courier Cyr' 'PROMT OEM Courier Cyr Spec' 'PROMT OEM Helv Cyr' 'PROMT OEM Helv Cyr Spec' 'PROMT OEM Helv WE' 'PROMT OEM Helv WE Spec' 'PromtImperial' 'Raavi' 'Rage Italic' 'Rockwell' 'Rockwell Condensed' 'Rockwell Extra Bold' 'Roman' 'Script' 'Script MT Bold' 'Shruti' 'Small Fonts' 'Sylfaen' 'Symbol' 'System' 'Tahoma' 'Terminal' 'Times New Roman' 'Times New Roman Baltic' 'Times New Roman CE' 'Times New Roman CYR' 'Times New Roman Greek' 'Times New Roman TUR' 'Trebuchet MS' 'Tunga' 'Tw Cen MT' 'Tw Cen MT Condensed' 'Tw Cen MT Condensed Extra Bold' 'Verdana' 'Webdings' 'Wingdings' 'Wingdings 2' 'Wingdings 3' 'WST_Czec' 'WST_Engl' 'WST_Fren' 'WST_Germ' 'WST_Ital' 'WST_Span' 'WST_Swed') Sorted = True Style = lbOwnerDrawFixed TabOrder = 5 OnClick = sFontListBox1Click end object sListBox1: TsListBox Left = 160 Top = 50 Width = 113 Height = 81 BoundLabel.Indent = 0 BoundLabel.Font.Charset = DEFAULT_CHARSET BoundLabel.Font.Color = clWindowText BoundLabel.Font.Height = -11 BoundLabel.Font.Name = 'MS Sans Serif' BoundLabel.Font.Style = [] BoundLabel.Layout = sclLeft BoundLabel.MaxWidth = 0 SkinData.SkinSection = 'EDIT' ItemHeight = 16 TabOrder = 7 end object sListBox2: TsListBox Left = 160 Top = 170 Width = 57 Height = 82 BoundLabel.Indent = 0 BoundLabel.Font.Charset = DEFAULT_CHARSET BoundLabel.Font.Color = clWindowText BoundLabel.Font.Height = -11 BoundLabel.Font.Name = 'MS Sans Serif' BoundLabel.Font.Style = [] BoundLabel.Layout = sclLeft BoundLabel.MaxWidth = 0 SkinData.SkinSection = 'EDIT' ItemHeight = 16 TabOrder = 8 end object sGroupBox1: TsGroupBox Left = 280 Top = 22 Width = 125 Height = 111 Caption = 'Kind :' TabOrder = 9 SkinData.SkinSection = 'GROUPBOX' object sCheckBox1: TsCheckBox Left = 20 Top = 20 Width = 69 Height = 20 Caption = 'StrikeOut' TabOrder = 0 SkinData.SkinSection = 'CHECKBOX' ImgChecked = 0 ImgUnchecked = 0 MultiLine = False end object sCheckBox2: TsCheckBox Left = 20 Top = 39 Width = 70 Height = 20 Caption = 'Underline' TabOrder = 1 SkinData.SkinSection = 'CHECKBOX' ImgChecked = 0 ImgUnchecked = 0 MultiLine = False end object sColorBox1: TsColorBox Left = 12 Top = 76 Width = 105 Height = 24 BoundLabel.Active = True BoundLabel.Caption = 'Color :' BoundLabel.Indent = 0 BoundLabel.Font.Charset = DEFAULT_CHARSET BoundLabel.Font.Color = clBlack BoundLabel.Font.Height = -11 BoundLabel.Font.Name = 'MS Sans Serif' BoundLabel.Font.Style = [] BoundLabel.Layout = sclTopLeft BoundLabel.MaxWidth = 0 Style = [cbStandardColors, cbCustomColor, cbPrettyNames] Color = clWhite TabOrder = 2 OnChange = sColorBox1Change SkinData.SkinSection = 'COMBOBOX' end end object sGroupBox2: TsGroupBox Left = 225 Top = 141 Width = 180 Height = 96 Caption = 'Preview :' TabOrder = 10 SkinData.SkinSection = 'GROUPBOX' object sPanel1: TsPanel Left = 11 Top = 24 Width = 158 Height = 61 Caption = 'AaBb'#193#225#212#244 TabOrder = 0 SkinData.CustomFont = True SkinData.SkinSection = 'PANEL_LOW' end end object sComboBox1: TsComboBox Left = 60 Top = 259 Width = 157 Height = 21 Alignment = taLeftJustify BoundLabel.Active = True BoundLabel.Caption = 'Charset' BoundLabel.Indent = 0 BoundLabel.Font.Charset = DEFAULT_CHARSET BoundLabel.Font.Color = clBlack BoundLabel.Font.Height = -11 BoundLabel.Font.Name = 'MS Sans Serif' BoundLabel.Font.Style = [] BoundLabel.Layout = sclLeft BoundLabel.MaxWidth = 0 SkinData.SkinSection = 'COMBOBOX' Style = csDropDownList Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ItemIndex = -1 ParentFont = False TabOrder = 11 end object sSkinProvider1: TsSkinProvider CaptionAlignment = taCenter SkinData.SkinSection = 'DIALOG' TitleButtons = <> Left = 112 Top = 4 end end